home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / usenet / sources / volume90 / aplictns / dtc / part01 / comdtc.inc < prev    next >
Text File  |  1990-03-14  |  1KB  |  44 lines
  1. c Common file COMDTC.INC for Desk Top Calendar programs
  2. c
  3.       parameter (iterm = 7)
  4. C Terminal unit number
  5. c
  6. C Length of character buffers
  7.       parameter (icmln = 84)
  8.       PARAMETER (iaptlim = 68)
  9. C maximum displayed length
  10. c
  11.       Integer*4 comlen, comidx
  12. C Current info
  13.       INTEGER*1 line(icmln)
  14. C command line
  15.       common /cmdlin/ comlen, comidx, line
  16. c
  17.       Integer*4 tokstart, toklen, tokfidx
  18. C Command-line scanning info
  19.       INTEGER*1 tokfound
  20. C for multi-token scans
  21.       common /cmdscan/ tokstart, toklen, tokfidx, tokfound
  22. c
  23.       Integer*4 rdspfg
  24. C  flag to reverse sense of display of time
  25.       Integer*4 ctlfg
  26. C  misc control flags here
  27.       common /ctls/ rdspfg, ctlfg
  28. c
  29.       Integer*4 idyr, idmo, iddy, incmod, ibigyr
  30.       common /defdat/ idyr, idmo, iddy, incmod, ibigyr
  31. c
  32.       Integer*4 fnsz
  33. C Size of filename
  34.       INTEGER*1 fname(60)
  35.       Character*60 fnc
  36. c
  37.       common /fn/ fnsz, fname
  38.       Equivalence(fnc,fname(1))
  39. c
  40.       INTEGER*1 ucmask
  41. C Useful constant
  42. C End of COMDTC.INC
  43.  
  44.